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— File: Strings. Mesa Edited by Sandman on July 22, 1977 11:02 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
InlineDefs: FROM " in! inedefs" , 
StringDefs: FROM "s tringdefs" ; 

DEFINITIONS FROM AltoDefs, StringDefs; 

Strings: DATA EXPORTS StringDefs SHARES StringDefs = PUBLIC 
BEGIN 

WordsForString: PROCEDURE [nchars: INTEGER] RETURNS [INTEGER] = 
BEGIN 

RETURN [StringHeaderSize + (nchars+(CharsPerWord-l))/CharsPerWord] 
END; 

StringBoundsFault: SIGNAL [s: STRING] RETURNS [ns: STRING] = CODE; 

AppendChar: PROCEDURE [s: STRING, c: CHARACTER] = 
BEGIN 
UNTIL s. length < s.maxlength DO 

s ♦• SIGNAL StringBoundsFault[s]; 

ENDLOOP; 
s[s. length] «• c; s. length ♦• s.length+1; 
RETURN 
END; 

AppendString: PROCEDURE [to, from: STRING] = 
BEGIN 

i, j, n: CARDINAL; 
WHILE from. length + to. length > to.maxlength DO 

to «- SIGNAL StringBoundsFault[to]; 

ENDLOOP; 
n «- MIN [from. length, LOOPHOLE[to .maxlength-to. length , CARDINAL]]; 
i <- to. length; j «- 0; 
WHILE j < n 

DO 

to[i] «- from[j]; 

i «- i+1; j «- j + 1; 

ENDLOOP; 
to. length «- i ; 
RETURN 
END; 

EqualString: PROCEDURE [si, s2: STRING] RETURNS [BOOLEAN] = 
BEGIN 

i: CARDINAL; 
IF si. length ti s2. length 

THEN RETURN [FALSE]; 
FOR i IN [0. .si. length) 

DO 

IF sl[i] n s2[i] 

THEN RETURN [FALSE]; 

ENDLOOP; 
RETURN [TRUE] 
END; 

EquivalentString: PROCEDURE [si, s2: STRING] RETURNS [BOOLEAN] = 
BEGIN 

OPEN Inl ineDefs; 
i: CARDINAL; 
casebit: WORD = 40B; 
IF si. length # s2. length 

TtlTN RETURN [FALSE]; 
FOR i IN [0. .si .length) 

DO 

IF BTTOR[LOOPHOLE[sl[i]], casebit] ft B I TOR [ LOOP! !OLT [ s 2 [ i ] ] , casebit] 
THEN RETURN [TAt.SE]; 

CNDIOOP; 
RFTURN [TRUE] 
END; 

AppendSubSLr ing: PROCEDURE [to: STRING, from: Substring] = 
BEGIN 
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i, j, n: CARDINAL; 

WHILE from. length + to. length > to.maxlength DO 

to ♦• SIGNAL StringBoundsFault[to]; 

ENDLOOP; 
n «- MIN [from. length, LOOPHOLE[to.max1ength-to. length , CARDINAL]]; 
i <- to. length; j ♦» from. offset; 
WHILE n > 

DO 

to[i] «- from.base[j]; 

i ♦» 1+1; j ♦- j+1; n + n-1; 

ENDLOOP; 
to. length ♦• i ; 
RETURN 
END; 

EqualSubStrings: PROCEDURE [si, s2: Substring] RETURNS [BOOLEAN] = 
BEGIN 

11, 12, n: CAROINAL; 
bl, b2: STRING; 
IF si. length ft s2. length 

THEN RETURN [FALSE]; 
bl ♦• si. base; il «- si. offset; 
b2 <- s2.base; i2 «- s2. offset; 
FOR n ♦• si. length, n-1 WHILE n > 

DO 

IF bl[il] n b2[12] 
THEN RETURN [FALSE]; 

il ♦- 11 + 1; i2 ♦- 12+1; 

ENDLOOP; 
RETURN [TRUE] 
END; 

EquivalentSubStrings: PROCEDURE [si, s2: Substring] RETURNS [BOOLEAN] = 
BEGIN 

OPEN InliheDefs; 
casebit: WORD = 408; 
11, 12, n: CARDINAL; 
bl, b2: STRING; 
IF si. length H s2. length 

THEN RETURN [FALSE]; 
bl ♦• si. base; il ♦• si. offset; 
b2 ♦• s2.base; i2 ♦- s2. offset; 
FOR n «- si. length, n-1 WHILE n > 

DO 

IF BITOR[L0OPH0LE[bl[il]], casebit] # BITOR[LOOPHOLE[b2[i2]] , casebit] 
THEN RETURN [FALSE]; 

il ♦• 11 + 1; i2 <- i2+l; 

ENDLOOP; 
RETURN [TRUE] 
END; 

DeleteSubString: PROCEDURE [s: Substring] = 
BEGIN 

b: STRING = s.base; 
i: CARDINAL ♦- s. offset; 
j: CAROINAL «- i + s. length; 
WHILE j < b. length 

DO 

b[1] - b[j]: 

1 ♦- i+1 ; j ^ j+1 ; 

ENDLOOP; 
b . length +- i ; 
RETURN 
END; 

-- routines for bcpl strings 

WordsTorBcplStr ing: PROCTDURF[n: INTEGER] RTTURNS[ INTEGER] = 
BFGIN RETURN[bcplStr i nglleaderS i ze+n/Char sPerWord ] END; 

bcplStringOverflow: STGNAl = CODE; 

MesaToBcplString: PROCrDURE[s : STRING , t:POINTTR TO bcplSTRING] = 
BTGTN 
w: bytepair; 
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i: CARDINAL; 
j: CARDINAL ♦• 0; 
IF s.length>0 THEN 
BEGIN 

t.body <- s[0]j j +■ j+1; 

FOR i IN [l..SIZE[bcp1STRING]) WHILE j<s. length DO 
w <- bytepa1r[s[j],0C]; j <- j + 1; 
IF j<s. length THEN 

BEGIN w. right «- s[j]; j «• j + 1 END; 
t.rest[i] <- w; 
ENDLOOP: 
IF j<s. length THEN SIGNAL bcplStr ingOverf low; 
END 
ELSE t.body <- OC; 
t. length 4- j; 
END; 

mesaStringOverf low: SIGNAL = CODE; 

BcplToMesaString: PROCEDURE[t : POINTER TO bcplSTRING, s:STRING] 
BEGIN 

i,j: CARDINAL; 

IF (s. length «- t . length)>s .maxlength THEN 
BEGIN 

SIGNAL mesaStringOverf low; 
s. length «- s. maxlength; 
END; 
IF s.length>0 THEN 
BEGIN 

s[0] <- t.body; i <- 1; 
FOR j IN [1. .s. length) DO 
IF j MOD 2 =0 THEN 
BEGIN 

S U] *" t. rest[i]. right; 
i «- i + 1; 
END 
ELSE s[j] ♦- t.rest[i].left; 
ENDLOOP; 
END; 
END; 



Overflow: SIGNAL = CODE; 

Inval idNumber: SIGNAL = CODE; 

Maxlnteger: PRIVATE INTEGER = 32767; 

NUL: CHARACTER = OC; 

CharZero: CARDINAL = LOOPHOLE[ ' 0] ; 

Space: CHARACTER = 40C; 

StringToNumber: PUBLIC PROCEDURE [s: STRING, radix: CARDINAL] 
RCTURNS [v:UNSPECIFIED] = 
BEGIN OPEN In! ineDefs; 
char: CHARACTER; 
cp: CARDINAL <- 0; 
v8. vlO: CARDINAL <- 0; 
neg: BOOLEAN «- FALSE; 
getchar: PROCEDURE = 

BEGIN 

char <- s[cp]; 

IT (cp «- cp+1) > s. length THEN char «- NUL; 

END; 

getchar[] ; 

WHILE char <= Space DO 

IF char = NUL THrN SIGNAL Inval idNumber ; 

getchar [] ; 

TNDI OOP: 
IT char = '- THEN 

BTGTN neg «- TRUE; getchar[] END; 
WHILE char TN [ ' . . ' 9 ] DO 

vlO <- vlOMO + (I OOPHOir[char, CARDINALJ-CharZero) ; 

v8 «- v8*Q + (LOOPIIOl r[char, CARD TNAL ]-CharZero) ; 

g e t c h a r [ ] ; 

TNDIOOP; 

BEGIN 
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SELECT LOOPHOLE[BITAND[LOOPHOLE[char] f 137B], CHARACTER] FROM 

NUL => GOTO noexponent; 

'B => BEGIN v «- v8; radix ♦• 8; END; 

•D => BEGIN v 4- vlO; radix ♦• 10; END; 

ENDCASE »> SIGNAL Inval idNumber; 
getchar[]; vlO «- 0; 
WHILE char IN ['0. . f 9] DO 

vlO «- vlO*10 + (LOOPHOLE[char, CARDINAL]-CharZero) ; 

getchar[] ; 

ENDLOOP; 
THROUGH [1 .. vlO] DO v 4- v*radix ENDLOOP; 
EXITS noexponent => v <- IF radix = 8 THEN v8 ELSE vlO; 
END; 

IF char # NUL THEN SIGNAL Inval idNumber ; 

IF neg THEN RETURN[-v]; 

END; 

StringToDecimal: PROCEDURE [s: STRING] RETURNS [INTEGER] = 
BEGIN 

RETURN[StringToNumber[s,10]] 
END; 

StringToOctal : PROCEDURE [s: STRING] RETURNS [UNSPECIFIED] = 
BEGIN 

RETURN[StringToNumber[s,8]]; 
END; 

END. 



